﻿
Imports System.IO

Public Class xmltext
    Inherits xmlcontrol

    Private textEncoding2 As textEncodingEnum = textEncodingEnum.htmlencoding

    Protected Overrides Function textEncoding() As textEncodingEnum
        Return textEncoding2
    End Function

    Public Sub New(ByVal textencoding As textEncodingEnum, Optional ByVal buff As Stream = Nothing)
        Me.New(buff)
        textEncoding2 = textencoding
    End Sub

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff)
    End Sub

    Protected Overrides Function render(ByVal compress As Boolean) As Boolean
        Return renderText(compress)
    End Function
End Class
